|
AutoCAD VBA : Xrecord Laden
Stelli1 am 02.06.2008 um 11:49 Uhr (0)
Hallo Schmodi,wo liegt das Problem Speichern kannst du z.B. so:Code: xType(0) = 1001 Xvalue(0) = "IS_VBATOOL" xType(1) = 1000 Xvalue(1) = "HYDRANT" xType(2) = 1002 Xvalue(2) = "{" xType(3) = 1000 If Me.txt_Hydrantname.Text "" Then Xvalue(3) = Me.txt_Hydrantname Else Xvalue(3) = "~" End If xType(4) = 1000 If Me.com_Funktion.ListIndex -1 Then Xvalue(4) = Me.com_Funktion.List(Me.com_Funktion.ListIndex, 1) Else Xvalue(4) = "~" End If .... ogac_Entity.SetXData xType, XvalueWichtig ...
|
| In das Form AutoCAD VBA wechseln |
|
Autocad VBA : Blöcke mit bestimmten Layer und-color: #FFFF99'>suchen
Stelli1 am 02.03.2007 um 16:44 Uhr (0)
Hallo,irgendwie stimmt entweder in der ersten Frage was nicht oder in der letzten Antwort. Wenn es egal ist welche Layer in den Blockdefinitionen sind sondern nur der Layer des Einfügepunktes interessieren dann kannst du es so machen:Code:Sub test() Dim sset As AcadSelectionSet On Error Resume Next Set sset = ThisDrawing.SelectionSets("MySel") If Err.Number Then Set sset = ThisDrawing.SelectionSets.Add("MySel") End If On Error GoTo 0 Dim FilterData(0 To 1) As Variant Dim FilterType(0 To 1) ...
|
| In das Form Autocad VBA wechseln |
|
Autocad VBA : Layer ersetzen
Stelli1 am 20.12.2005 um 09:09 Uhr (0)
Hallo,die Lösung steckt in der FehlermeldungDuplicate record nameEs gibt bereits einen Layer mit diesem Namen.Da musst du vorher unterund-color: #FFFF99'>suchen ob es den Layerbereits gibt.Vielleicht mit dieser Funktion.Wenn ein Layer(name) schon vorhanden ist, kannst du ja eineMeldung ausgeben.Stelli------------------Warum lispeln wenns auch anders geht.
|
| In das Form Autocad VBA wechseln |
|
AutoCAD VBA : Blöcke nach Position und-color: #FFFF99'>suchen
Stelli1 am 25.03.2009 um 19:41 Uhr (0)
Hi,wie wärs mit SelectAtPoint ?Wilfried Stelberg------------------Warum lispeln wenns auch anders geht. www.ib-stelberg.de
|
| In das Form AutoCAD VBA wechseln |
|
Autocad VBA : Blöcke mit bestimmten Layer und-color: #FFFF99'>suchen
Stelli1 am 01.03.2007 um 21:21 Uhr (0)
Hallo,schau dir mal das an. Hier wird in der komletten DWG nach Layern gesucht und jeder Bloch iterativ durchsucht.Stelli------------------Warum lispeln wenns auch anders geht. www.ib-stelberg.de
|
| In das Form Autocad VBA wechseln |
|
AutoCAD VBA : Blöcke nach Position und-color: #FFFF99'>suchen
Stelli1 am 26.03.2009 um 11:23 Uhr (0)
Hallo,mal nur ungetestet. Würde das nicht mit SelectByPolyon gehen. Vorher generierst du ein Polygon rund um deinen Punkt !?Im einfachsten Fall ein kleines Quadrat Wilfried Stelberg ------------------Warum lispeln wenns auch anders geht. www.ib-stelberg.de
|
| In das Form AutoCAD VBA wechseln |
|
AutoCAD VBA : Blöcke nach Position und-color: #FFFF99'>suchen
Stelli1 am 25.03.2009 um 21:28 Uhr (0)
Hallo,hab es jetzt auch mal getestet. Du hast Recht. Es gibt wohl einige Feinheiten.Auf die Schnelle habe ich da für heute auch keine Lösung.Wilfried Stelberg------------------Warum lispeln wenns auch anders geht. www.ib-stelberg.de
|
| In das Form AutoCAD VBA wechseln |
|
AutoCAD VBA : Blöcke nach Position und-color: #FFFF99'>suchen
Stelli1 am 25.03.2009 um 20:28 Uhr (0)
Hallo,es kann doch keine Linie kommen, oder ?Du hast doch deinen Filter. Du brauchst doch nur das Insert stehen lassen.Wilfried Stelberg------------------Warum lispeln wenns auch anders geht. www.ib-stelberg.de
|
| In das Form AutoCAD VBA wechseln |
|
AutoCAD VBA : Linienfarbe und Linientyp aendern mittels Vb
Stelli1 am 07.02.2006 um 10:21 Uhr (0)
Hallo Florian,Du kannst im Filter auch eine OR Verknüpfung der Eigenschaften erreichen (wie in Lisp).z.B. so kannst du Texte und und-color: #FFFF99'>Mtexte gleichzeitig filtern.Code: Dim FilterType(0 To 3) Dim FilterData(0 To 3) FilterType(0) = -4 FilterData(0) = "OR" FilterType(1) = 0 FilterData(1) = "TEXT" FilterType(2) = 0 FilterData(2) = "MTEXT" FilterType(3) = -4 FilterData(3) = "OR"Stelli------------------Warum lispeln wenns auch anders geht.
|
| In das Form AutoCAD VBA wechseln |
|
AutoCAD VBA : VBA optionButton1 Aktive oder deaktive
Stelli1 am 13.02.2008 um 12:23 Uhr (0)
Hallo,noch ein Nachtrag fürs einfache und-color: #FFFF99'>Suchen.Wilfried Stelberg------------------Warum lispeln wenns auch anders geht. www.ib-stelberg.de
|
| In das Form AutoCAD VBA wechseln |
|
AutoCAD VBA : layer farbe änderen
Stelli1 am 01.08.2007 um 15:10 Uhr (0)
Hallo,a) mit der replace Funktion kannst du doch Teile des Names ersetzen.b) Wenn du jedoch mehrere verschiedene Layer auf den gleichen Namen legen willst wird es wohl etwas komplexer da ein Layername nur einmal vorkommen kann. Dann müsstes du alle Elemente der Layer die wegfallen erst mal auf den endgültigen Layer setzen.Mir ist aber nicht klar was du eigentlich machen willst (a oder b).Wilfried Stelberg------------------Warum lispeln wenns auch anders geht. www.ib-stelberg.de
|
| In das Form AutoCAD VBA wechseln |
|
AutoCAD VBA : Automatischer Programmstart
Stelli1 am 14.02.2008 um 13:05 Uhr (0)
Hallo Ines,so langsam versteh ich was du machen willst. Einige Restriktionen sollten schon da sein. Das mit dem automatischen und-color: #FFFF99'>Suchen nach einer Datei geht ja ins Uferlose. Wenn da noch im Netzwerk gesucht werden soll. AutoCAD hat ja auch Supportpfade in denen es sucht. Da gibt es schon Funktionen (programmierte) die In Pfaden und-color: #FFFF99'>suchen. Dann hast du aber immer noch das Problem das der Anwender zwei Versionen von deinen Dateien hat. Ich würde es so machen, dass die Exceldatei und die DWG Datei im gleichen Ordn ...
|
| In das Form AutoCAD VBA wechseln |
|
AutoCAD VBA : Farbwert an bestimmter Stelle ermitteln
Stelli1 am 05.09.2007 um 11:41 Uhr (0)
Hallo,es gibt eine Möglichkeit an einer Koordinate nach Elementen und-color: #FFFF99'>suchen zu lassen. Such doch mal nach SelectAtPoint. z.B. hierDann kannst du in einer Schleife dein Raster durchlaufen und prüfen was an diesem Punkt los ist.Wilfried Stelberg------------------Warum lispeln wenns auch anders geht. www.ib-stelberg.de
|
| In das Form AutoCAD VBA wechseln |
